home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / nrpas13.zip / SPCTRM.DEM < prev    next >
Text File  |  1991-04-29  |  832b  |  39 lines
  1. PROGRAM d12r8(input,output,dfile);
  2. (* driver for routine SPCTRM *)
  3. CONST
  4.    m=16;
  5.    m4=64;   (* m4=4*m *)
  6. TYPE
  7.    glmarray = ARRAY [1..m] OF real;
  8.    gl4marray = ARRAY [1..m4] OF real;
  9.    gldarray = gl4marray;
  10. VAR
  11.    j,k : integer;
  12.    ovrlap : boolean;
  13.    p,q,w2 : glmarray;
  14.    w1 : gl4marray;
  15.    dfile : text;
  16.  
  17. (*$I MODFILE.PAS *)
  18. (*$I FOUR1.PAS *)
  19.  
  20. (*$I SPCTRM.PAS *)
  21.  
  22. BEGIN
  23.    glopen(dfile,'spctrl.dat');
  24.    k := 8;
  25.    ovrlap := true;
  26.    spctrm(p,m,k,ovrlap,w1,w2);
  27.    close(dfile);
  28.    glopen(dfile,'spctrl.dat');
  29.    k := 16;
  30.    ovrlap := false;
  31.    spctrm(q,m,k,ovrlap,w1,w2);
  32.    close(dfile);
  33.    writeln('Spectrum of data in file SPCTRL.DAT');
  34.    writeln(' ':13,'overlapped ',' ':5,'non-overlapped');
  35.    FOR j := 1 to m DO BEGIN
  36.       writeln (j:6,' ':5,p[j]:13,' ':5,q[j]:13)
  37.    END
  38. END.
  39.